VB随机生成一个长度为7个英文字母的英文名如何写
VB随机生成一个长度为7个英文字母的英文名 如何写 -
Private Sub Command1_Click()Randomize Dim a As String a = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"For i = 1 To 7 Text1 = Text1 & Mid(a, Int(Rnd * Len(a) + 1), 1)Next i End Sub 简单点的就这个~
Dim xName As String Dim I As Integer I = Int(3 + 6 * Rnd())xName = Chr(int(64 + 26 * Rnd()))For j = 1 To I xName = xName & Chr(Int(97 + 26 * Rnd()))Next Print "New English Name=" & xName End Sub 就是随即生成一个第一字母大写，后面字母小写的长度在还有呢？
Private Sub Command1_Click()Randomize Dim a As String a = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"For i = 1 To 7 Text1 = Text1 & Mid(a, Int(Rnd * Len(a) + 1), 1)Next i End Sub 简单点的就这个~
Dim xName As String Dim I As Integer I = Int(3 + 6 * Rnd())xName = Chr(int(64 + 26 * Rnd()))For j = 1 To I xName = xName & Chr(Int(97 + 26 * Rnd()))Next Print "New English Name=" & xName End Sub 就是随即生成一个第一字母大写，后面字母小写的长度在还有呢？
Form1.FontSize